home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue25 / compress / COMPRESS.ZIP / OBJS.ZIP / COMPCTRL.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-07-09  |  13.8 KB  |  357 lines
  1. //----------------------------------------------------------------------------
  2. // Compctrl.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: Compctrl.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef CompctrlHPP
  6. #define CompctrlHPP
  7. //----------------------------------------------------------------------------
  8. #include <Bde.hpp>
  9. #include <Menus.hpp>
  10. #include <StdCtrls.hpp>
  11. #include <Clipbrd.hpp>
  12. #include <Compress.hpp>
  13. #include <DBCtrls.hpp>
  14. #include <DBTables.hpp>
  15. #include <DB.hpp>
  16. #include <Dialogs.hpp>
  17. #include <Forms.hpp>
  18. #include <Controls.hpp>
  19. #include <Graphics.hpp>
  20. #include <Classes.hpp>
  21. #include <Messages.hpp>
  22. #include <Windows.hpp>
  23. #include <SysUtils.hpp>
  24. #include <System.hpp>
  25. namespace Compctrl
  26. {
  27. //-- type declarations -------------------------------------------------------
  28. class __declspec(delphiclass) TCBlobField;
  29. class __declspec(pascalimplementation) TCBlobField : public Dbtables::TBlobField
  30. {
  31.     typedef Dbtables::TBlobField inherited;
  32.     
  33. private:
  34.     bool Ftransliterate;
  35.     bool FModified;
  36.     Compress::TCompress* FCompressSource;
  37.     TCompressionMethod FCompressionMethod;
  38.     HIDESBASE Dbtables::TBlobType __fastcall GetBlobType(void);
  39.     HIDESBASE void __fastcall LoadFromBlob(Dbtables::TBlobField* Blob);
  40.     HIDESBASE void __fastcall LoadFromBitmap(Graphics::TBitmap* Bitmap);
  41.     HIDESBASE void __fastcall LoadFromStrings(Classes::TStrings* Strings);
  42.     HIDESBASE void __fastcall SaveToBitmap(Graphics::TBitmap* Bitmap);
  43.     HIDESBASE void __fastcall SaveToStrings(Classes::TStrings* Strings);
  44.     HIDESBASE void __fastcall SetBlobType(Dbtables::TBlobType Value);
  45.     
  46. protected:
  47.     virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
  48.     virtual System::AnsiString __fastcall GetAsString(void);
  49.     virtual System::Variant __fastcall GetAsVariant(void);
  50.     virtual void __fastcall GetText( System::AnsiString &Text, bool DisplayText);
  51.     virtual void __fastcall SetAsString(const System::AnsiString Value);
  52.     virtual void __fastcall SetVarValue(const System::Variant &Value);
  53.     
  54. public:
  55.     __fastcall virtual TCBlobField(Classes::TComponent* AOwner);
  56.     virtual void __fastcall Assign(Classes::TPersistent* Source);
  57.     virtual void __fastcall Clear(void);
  58.     HIDESBASE void __fastcall LoadFromFile(const System::AnsiString FileName);
  59.     HIDESBASE void __fastcall LoadFromStream(Classes::TStream* Stream);
  60.     HIDESBASE void __fastcall SaveToFile(const System::AnsiString FileName);
  61.     HIDESBASE void __fastcall SaveToStream(Classes::TStream* Stream);
  62.     virtual void __fastcall SetFieldType(Db::TFieldType Value);
  63.     virtual void __fastcall SetText(const System::AnsiString Value);
  64.     __property System::AnsiString Value = {read=GetAsString, write=SetAsString, nodefault};
  65.     
  66. __published:
  67.     __property Dbtables::TBlobType BlobType = {read=GetBlobType, write=SetBlobType, nodefault};
  68.     __property Size ;
  69.     __property Compress::TCompress* CompressSource = {read=FCompressSource, write=FCompressSource, nodefault
  70.         };
  71.     __property Compress::TCompressionMethod CompressionMethod = {read=FCompressionMethod, write=FCompressionMethod
  72.         , nodefault};
  73. public:
  74.     /* TField.Destroy */ __fastcall virtual ~TCBlobField(void) { }
  75.     
  76. };
  77.  
  78. class __declspec(delphiclass) TCMemoField;
  79. class __declspec(pascalimplementation) TCMemoField : public TCBlobField
  80. {
  81.     typedef TCBlobField inherited;
  82.     
  83. public:
  84.     __fastcall virtual TCMemoField(Classes::TComponent* AOwner);
  85.     __property bool Transliterate = {read=Ftransliterate, write=Ftransliterate, default=1};
  86. public:
  87.     /* TField.Destroy */ __fastcall virtual ~TCMemoField(void) { }
  88.     
  89. };
  90.  
  91. class __declspec(delphiclass) TCGraphicField;
  92. class __declspec(pascalimplementation) TCGraphicField : public TCBlobField
  93. {
  94.     typedef TCBlobField inherited;
  95.     
  96. public:
  97.     __fastcall virtual TCGraphicField(Classes::TComponent* AOwner);
  98. public:
  99.     /* TField.Destroy */ __fastcall virtual ~TCGraphicField(void) { }
  100.     
  101. };
  102.  
  103. class __declspec(delphiclass) TCDBMemo;
  104. class __declspec(pascalimplementation) TCDBMemo : public Stdctrls::TCustomMemo
  105. {
  106.     typedef Stdctrls::TCustomMemo inherited;
  107.     
  108. private:
  109.     TCMemoField* FCField;
  110.     Compress::TCompress* FCompressSource;
  111.     TCompressionMethod FCompressionMethod;
  112.     Dbtables::TFieldDataLink* FDataLink;
  113.     bool FAutoDisplay;
  114.     bool FFocused;
  115.     bool FMemoLoaded;
  116.     Dbctrls::TPaintControl* FPaintControl;
  117.     void __fastcall DataChange(System::TObject* Sender);
  118.     void __fastcall EditingChange(System::TObject* Sender);
  119.     System::AnsiString __fastcall GetDataField(void);
  120.     Db::TDataSource* __fastcall GetDataSource(void);
  121.     Db::TField* __fastcall GetField(void);
  122.     bool __fastcall GetReadOnly(void);
  123.     void __fastcall CheckSetCompressedField(void);
  124.     void __fastcall SetCompressionMethod(Compress::TCompressionMethod value);
  125.     void __fastcall SetCompressSource(Compress::TCompress* value);
  126.     void __fastcall SetDataField(const System::AnsiString Value);
  127.     void __fastcall SetDataSource(Db::TDataSource* Value);
  128.     HIDESBASE void __fastcall SetReadOnly(bool Value);
  129.     void __fastcall SetAutoDisplay(bool Value);
  130.     void __fastcall SetFocused(bool Value);
  131.     void __fastcall UpdateData(System::TObject* Sender);
  132.     MESSAGE void __fastcall WMCut(Messages::TMessage &Message);
  133.     MESSAGE void __fastcall WMPaste(Messages::TMessage &Message);
  134.     HIDESBASE MESSAGE void __fastcall CMEnter(Messages::TWMNoParams &Message);
  135.     HIDESBASE MESSAGE void __fastcall CMExit(Messages::TWMNoParams &Message);
  136.     HIDESBASE MESSAGE void __fastcall WMLButtonDblClk(Messages::TWMMouse &Message);
  137.     HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  138.     MESSAGE void __fastcall CMGetDataLink(Messages::TMessage &Message);
  139.     
  140. protected:
  141.     __property TCMemoField* CompressedField = {read=FCField, write=FCField, nodefault};
  142.     virtual void __fastcall Change(void);
  143.     virtual void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
  144.     virtual void __fastcall KeyPress(char &Key);
  145.     virtual void __fastcall Loaded(void);
  146.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  147.         );
  148.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  149.     
  150. public:
  151.     __fastcall virtual TCDBMemo(Classes::TComponent* AOwner);
  152.     __fastcall virtual ~TCDBMemo(void);
  153.     void __fastcall LoadMemo(void);
  154.     __property Db::TField* Field = {read=GetField, nodefault};
  155.     __property TCMemoField* CField = {read=FCField, nodefault};
  156.     
  157. __published:
  158.     __property Align ;
  159.     __property Alignment ;
  160.     __property bool AutoDisplay = {read=FAutoDisplay, write=SetAutoDisplay, default=1};
  161.     __property BorderStyle ;
  162.     __property Color ;
  163.     __property Compress::TCompressionMethod CompressionMethod = {read=FCompressionMethod, write=SetCompressionMethod
  164.         , nodefault};
  165.     __property Compress::TCompress* CompressSource = {read=FCompressSource, write=SetCompressSource, nodefault
  166.         };
  167.     __property Ctl3D ;
  168.     __property System::AnsiString DataField = {read=GetDataField, write=SetDataField, nodefault};
  169.     __property Db::TDataSource* DataSource = {read=GetDataSource, write=SetDataSource, nodefault};
  170.     __property DragCursor ;
  171.     __property DragMode ;
  172.     __property Enabled ;
  173.     __property Font ;
  174.     __property MaxLength ;
  175.     __property ParentColor ;
  176.     __property ParentCtl3D ;
  177.     __property ParentFont ;
  178.     __property ParentShowHint ;
  179.     __property PopupMenu ;
  180.     __property bool ReadOnly = {read=GetReadOnly, write=SetReadOnly, default=0};
  181.     __property ScrollBars ;
  182.     __property ShowHint ;
  183.     __property TabOrder ;
  184.     __property TabStop ;
  185.     __property Visible ;
  186.     __property WantTabs ;
  187.     __property WordWrap ;
  188.     __property OnChange ;
  189.     __property OnClick ;
  190.     __property OnDblClick ;
  191.     __property OnDragDrop ;
  192.     __property OnDragOver ;
  193.     __property OnEndDrag ;
  194.     __property OnEnter ;
  195.     __property OnExit ;
  196.     __property OnKeyDown ;
  197.     __property OnKeyPress ;
  198.     __property OnKeyUp ;
  199.     __property OnMouseDown ;
  200.     __property OnMouseMove ;
  201.     __property OnMouseUp ;
  202.     __property OnStartDrag ;
  203. public:
  204.     /* TWinControl.CreateParented */ __fastcall TCDBMemo(HWND ParentWindow) : Stdctrls::TCustomMemo(ParentWindow
  205.         ) { }
  206.     
  207. };
  208.  
  209. class __declspec(delphiclass) TCDBImage;
  210. class __declspec(pascalimplementation) TCDBImage : public Controls::TCustomControl
  211. {
  212.     typedef Controls::TCustomControl inherited;
  213.     
  214. private:
  215.     TCGraphicField* FCField;
  216.     Compress::TCompress* FCompressSource;
  217.     TCompressionMethod FCompressionMethod;
  218.     Dbtables::TFieldDataLink* FDataLink;
  219.     Graphics::TPicture* FPicture;
  220.     TFormBorderStyle FBorderStyle;
  221.     bool FAutoDisplay;
  222.     bool FStretch;
  223.     bool FCenter;
  224.     bool FPictureLoaded;
  225.     bool FQuickDraw;
  226.     void __fastcall EditChange(System::TObject* Sender);
  227.     void __fastcall CheckSetCompressedField(void);
  228.     void __fastcall DataChange(System::TObject* Sender);
  229.     System::AnsiString __fastcall GetDataField(void);
  230.     Db::TDataSource* __fastcall GetDataSource(void);
  231.     Db::TField* __fastcall GetField(void);
  232.     bool __fastcall GetReadOnly(void);
  233.     void __fastcall PictureChanged(System::TObject* Sender);
  234.     void __fastcall SetAutoDisplay(bool Value);
  235.     void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  236.     void __fastcall SetCenter(bool Value);
  237.     void __fastcall SetCompressionMethod(Compress::TCompressionMethod value);
  238.     void __fastcall SetCompressSource(Compress::TCompress* value);
  239.     void __fastcall SetDataField(const System::AnsiString Value);
  240.     void __fastcall SetDataSource(Db::TDataSource* Value);
  241.     void __fastcall SetPicture(Graphics::TPicture* Value);
  242.     void __fastcall SetReadOnly(bool Value);
  243.     void __fastcall SetStretch(bool Value);
  244.     void __fastcall UpdateData(System::TObject* Sender);
  245.     HIDESBASE MESSAGE void __fastcall CMEnter(Messages::TWMNoParams &Message);
  246.     HIDESBASE MESSAGE void __fastcall CMExit(Messages::TWMNoParams &Message);
  247.     HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
  248.     HIDESBASE MESSAGE void __fastcall WMLButtonDblClk(Messages::TWMMouse &Message);
  249.     MESSAGE void __fastcall WMCut(Messages::TMessage &Message);
  250.     MESSAGE void __fastcall WMCopy(Messages::TMessage &Message);
  251.     MESSAGE void __fastcall WMPaste(Messages::TMessage &Message);
  252.     MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  253.     
  254. protected:
  255.     __property TCGraphicField* CompressedField = {read=FCField, write=FCField, nodefault};
  256.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  257.     virtual HPALETTE __fastcall GetPalette(void);
  258.     virtual void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
  259.     virtual void __fastcall KeyPress(char &Key);
  260.     virtual void __fastcall Loaded(void);
  261.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  262.         );
  263.     virtual void __fastcall Paint(void);
  264.     
  265. public:
  266.     __fastcall virtual TCDBImage(Classes::TComponent* AOwner);
  267.     __fastcall virtual ~TCDBImage(void);
  268.     void __fastcall CopyToClipboard(void);
  269.     void __fastcall CutToClipboard(void);
  270.     void __fastcall LoadPicture(void);
  271.     void __fastcall PasteFromClipboard(void);
  272.     __property TCGraphicField* CField = {read=FCField, nodefault};
  273.     __property Db::TField* Field = {read=GetField, nodefault};
  274.     __property Graphics::TPicture* Picture = {read=FPicture, write=SetPicture, nodefault};
  275.     
  276. __published:
  277.     __property Align ;
  278.     __property bool AutoDisplay = {read=FAutoDisplay, write=SetAutoDisplay, default=1};
  279.     __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
  280.     __property bool Center = {read=FCenter, write=SetCenter, default=1};
  281.     __property Color ;
  282.     __property Compress::TCompressionMethod CompressionMethod = {read=FCompressionMethod, write=SetCompressionMethod
  283.         , nodefault};
  284.     __property Compress::TCompress* CompressSource = {read=FCompressSource, write=SetCompressSource, nodefault
  285.         };
  286.     __property Ctl3D ;
  287.     __property System::AnsiString DataField = {read=GetDataField, write=SetDataField, nodefault};
  288.     __property Db::TDataSource* DataSource = {read=GetDataSource, write=SetDataSource, nodefault};
  289.     __property DragCursor ;
  290.     __property DragMode ;
  291.     __property Enabled ;
  292.     __property Font ;
  293.     __property ParentColor ;
  294.     __property ParentCtl3D ;
  295.     __property ParentFont ;
  296.     __property ParentShowHint ;
  297.     __property PopupMenu ;
  298.     __property bool ReadOnly = {read=GetReadOnly, write=SetReadOnly, default=0};
  299.     __property bool QuickDraw = {read=FQuickDraw, write=FQuickDraw, default=1};
  300.     __property ShowHint ;
  301.     __property bool Stretch = {read=FStretch, write=SetStretch, default=0};
  302.     __property TabOrder ;
  303.     __property TabStop ;
  304.     __property Visible ;
  305.     __property OnClick ;
  306.     __property OnDblClick ;
  307.     __property OnDragDrop ;
  308.     __property OnDragOver ;
  309.     __property OnEndDrag ;
  310.     __property OnEnter ;
  311.     __property OnExit ;
  312.     __property OnKeyDown ;
  313.     __property OnKeyPress ;
  314.     __property OnKeyUp ;
  315.     __property OnMouseDown ;
  316.     __property OnMouseMove ;
  317.     __property OnMouseUp ;
  318.     __property OnStartDrag ;
  319. public:
  320.     /* TWinControl.CreateParented */ __fastcall TCDBImage(HWND ParentWindow) : Controls::TCustomControl(
  321.         ParentWindow) { }
  322.     
  323. };
  324.  
  325. class __declspec(delphiclass) TCBlobStream;
  326. class __declspec(pascalimplementation) TCBlobStream : public Classes::TStream
  327. {
  328.     typedef Classes::TStream inherited;
  329.     
  330. private:
  331.     bool FsaveTransliterateMode;
  332.     bool FOpened;
  333.     TCBlobField* FField;
  334.     bool FModified;
  335.     Dbtables::TBlobStream* FBlobStream;
  336.     Classes::TMemoryStream* FMemoryStream;
  337.     
  338. public:
  339.     __property Dbtables::TBlobStream* BlobStream = {read=FBlobStream, nodefault};
  340.     __fastcall TCBlobStream(TCBlobField* Field, Dbtables::TBlobStreamMode Mode);
  341.     __fastcall virtual ~TCBlobStream(void);
  342.     virtual long __fastcall Read(void *Buffer, long Count);
  343.     virtual long __fastcall Write(const void *Buffer, long Count);
  344.     virtual long __fastcall Seek(long Offset, Word Origin);
  345.     void __fastcall Truncate(void);
  346. };
  347.  
  348. //-- var, const, procedure ---------------------------------------------------
  349. extern void __fastcall Register(void);
  350.  
  351. }    /* namespace Compctrl */
  352. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  353. using namespace Compctrl;
  354. #endif
  355. //-- end unit ----------------------------------------------------------------
  356. #endif    // Compctrl
  357.